home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Misc / Atlantis / Install < prev    next >
Encoding:
Text File  |  1997-05-02  |  8.2 KB  |  312 lines
  1. ; $VER: Atlantis Installer Script 1.0 (22.04.97)
  2. ;
  3. ; Installer script for Atlantis V1.0
  4. ;
  5. ; © 1997 Staffan Palmroos
  6. ;
  7. (if (= @language "svenska")
  8.   (
  9.     (set #WelcomeStr
  10.       (cat "Välkommen till Atlantis Installation.\n\n"
  11.            "Jag hoppas att du får mycket nytta av Atlantis och att du registrerar Atlantis snart."))
  12.  
  13.     (set #DestinationStr "I vilken katalog skall jag skapa katalogen Atlantis?")
  14.     (set #DestinationHelp
  15.       (cat "Välj den befintliga katalog där en ny katalog med namnet Atlantis "
  16.            "skall skapas. Den logiska enheten 'Atlantis:' kommer att peka på denna katalog.\n\n"))
  17.     (set #WhichProcStr "Vilken version vill du installera?")
  18.     (set #WhichProcHelp
  19.       (cat "Atlantis finns i en 68020 - version som är specialkompilerad just för denna version."
  20.            "Denna version är snabbare, men kräver naturligtvis att du har en 68020 processor"
  21.            "eller bättre.\n\n"))
  22.     (set #68000Str "68000-versionen")
  23.     (set #68020Str "68020-versionen")
  24.     (set #WhatLangStr "Vilket/Vilka språk vill du installera? Det inbyggda språket är engelska.")
  25.     (set #WhatLangHelp
  26.       (cat "Atlantis finns för närvarande bara på svenska och engelska, så denna fråga är kanske lite "
  27.            "fånig. Dock hoppas jag att det kommer fler språk i framtiden, och då kommer denna fråga "
  28.            "att innehålla fler möjliga svar.\n\n"))
  29.     (set #IconStr
  30.       (cat "Om ikonerna:\n\n"
  31.            "Ikonerna i detta arkiv är ritade för MagicWB med Roman Patzners 16-färgers palett. "
  32.            "Om du inte använder MagicWB kommer de med största sannolikhet att se hemska ut, "
  33.            "och du kanske ritar om dem. Om du gör det, varför inte skicka mig de nya ikonerna "
  34.            "så att jag kan inkludera dem i nästa version av Atlantis"))
  35.     (set #DocDirStr "Var vill du ha dokumentationen?")
  36.     (set #DocDirHelp
  37.       (cat "Somliga väljer att samla alla guide-filer i en och samma katalog. Om du är en av dem "
  38.            "kan du nu ange var du vill ha Atlantis.guide. Observera dock att om du väljer att ha "
  39.            "manualen någon annanstans kanske inte Atlantis hitta den när man trycker på HELP-"
  40.            "tangenten.\n\n"))
  41.     (set #MCCInstallStr "Installerar Icon.mcc")
  42.     (set #MCCInstallHelp
  43.       (cat "Atlantis behöver den externa klassen Icon.mcc. Icon.mcc är © Russell Leighton."
  44.            "Se dokumentationen för Icon.mcc i katalogen Docs för mer information.\n\n"))
  45.     (set #ModifyStartupStr "Jag måste lägga in några rader i S:User-Startup")
  46.     (set #ModifyStartupHelp
  47.       (cat "Följande rader läggs till i din S:User-Startup:\n\n"
  48.            ";BEGIN Atlantis\n"
  49.            "Assign Atlantis: %s\n"
  50.            ";END Atlantis\n\n"))
  51.   )
  52.   (
  53.     (set #WelcomeStr
  54.       (cat "Welcome to the Atlantis Installation.\n\n"
  55.            "I hope that Atlantis will give you what you want and that you register Atlantis soon."))
  56.     (set #DestinationStr "In which drawer shall I create the Atlantis drawer?")
  57.     (set #DestinationHelp
  58.       (cat "Pick a drawer where the program drawer shall be created. An assign named 'Atlantis:'"
  59.            "will be pointed to this drawer.\n\n"))
  60.     (set #WhichProcStr "Which version do you want to install?")
  61.     (set #WhichProcHelp
  62.       (cat "Included in the archive is a special 68020 version of Atlantis. This version is"
  63.            "faster, but does of course require that you have a 68020 processor or better.\n\n"))
  64.     (set #68000Str "The 68000 version")
  65.     (set #68020Str "The 68020 version")
  66.     (set #WhatLangStr "Which language(s) do you want to install? The built-in language is English.")
  67.     (set #WhatLangHelp
  68.       (cat "Currently Atlantis is only available in Swedish and English, so this question seems quite "
  69.            "redundant. In the future though I hope there will be more languages to choose from.\n\n"))
  70.     (set #IconStr
  71.       (cat "About the Icons:\n\n"
  72.            "The icons in this package is drawn for MagicWB using Roman Patzners 16 color "
  73.            "palette. If you are using a different desktop they will most likely look "
  74.            "terrible. In that case you will probably want to redraw them for your desktop. "
  75.            "If you do, why not send them to me so I can include them in the next version "
  76.            "of Atlantis?"))
  77.     (set #DocDirStr "Where do you want the documentation?")
  78.     (set #DocDirHelp
  79.       (cat "Some people collect all guides at the same place. If you are one of them, "
  80.            "select the directory where the guide belongs. Please note that if you do "
  81.            "put it somewhere else Atlantis might not find it when you press the HELP "
  82.            "key in the program.\n\n"))
  83.     (set #MCCInstallStr "Installing Icon.mcc")
  84.     (set #MCCInstallHelp
  85.       (cat "Atlantis needs the MUI custom class Icon.mcc. Icon.mcc is © Russell Leighton. See "
  86.            "the Icon.mcc docs in the Docs directory for more information.\n\n"))
  87.     (set #ModifyStartupStr "I have to add a few lines to S:User-Startup")
  88.     (set #ModifyStartupHelp
  89.       (cat "The following lines is added to your S:User-Startup:\n\n"
  90.            ";BEGIN Atlantis\n"
  91.            "Assign Atlantis: %s\n"
  92.            ";END Atlantis\n\n"))
  93.   )
  94. )
  95.  
  96. (welcome #WelcomeStr)
  97.  
  98. (complete 0)
  99.  
  100. ;
  101. ; NORMAL: Fixa en katalog
  102. ;
  103. (if (> @user-level 0)
  104.   (set #AtlantisHome
  105.     (askdir
  106.       (help #DestinationHelp @askdir-help)
  107.       (prompt #DestinationStr)
  108.       (default "Work:Graphics")
  109.     )
  110.   )
  111.   (set #AtlantisHome "Work:Graphics")
  112. )
  113.  
  114. (set #AtlantisHome (tackon #AtlantisHome 'Atlantis'))
  115. (set @default-dest #AtlantisHome)
  116. ;
  117. ; Skapa en hemkatalog
  118. ;
  119. (makedir #AtlantisHome (infos))
  120.  
  121. ;
  122. ; Ta reda på vilken processor som används
  123. ;
  124. (set #FastProcessor
  125.   (not
  126.     (patmatch "68000|68010"
  127.       (database "cpu")
  128.     )
  129.   )
  130. )
  131.  
  132. ;
  133. ; EXPERT: Vilken processor?
  134. ;
  135. (complete 1)
  136. (if (> @user-level 1)
  137.   (set #WantProcVer
  138.     (askchoice
  139.       (prompt #WhichProcStr)
  140.       (help #WhichProcHelp @askchoice-help)
  141.       (choices #68000Str #68020Str)
  142.     )
  143.   )
  144.   (set #WantProcVer #FastProcessor)
  145. )
  146.  
  147. ;
  148. ; NORMAL: Vilket/vilka språk?
  149. ;
  150. (complete 2)
  151. (if (> @user-level 0)
  152.   (set #Langs
  153.     (askoptions
  154.       (prompt #WhatLangStr)
  155.       (help #WhatLangHelp @askoptions-help)
  156.       (choices "Svenska")
  157.       (default 1)
  158.     )
  159.   )
  160.   (set #Langs -1) ; Alla språk
  161. )
  162.  
  163. ;
  164. ; EXPERT: Dokumentationen vart?
  165. ;
  166. (complete 3)
  167. (if (> @user-level 1)
  168.   (set #DocDir
  169.     (askdir
  170.       (help #DocDirHelp @askdir-help)
  171.       (prompt #DocDirStr)
  172.       (default #AtlantisHome)
  173.     )
  174.   )
  175.   (set #DocDir #AtlantisHome)
  176. )
  177.  
  178. ;
  179. ; Om ikonerna...
  180. ;
  181. (complete 4)
  182. (message #IconStr (all))
  183.  
  184. ;
  185. ; Kopierar Binärerna
  186. ;
  187. (complete 10)
  188. (copyfiles
  189.   (prompt "")
  190.   (help @copyfiles-help)
  191.   (source
  192.     (if (= 1 #WantProcVer)
  193.         'Atlantis.020'
  194.         'Atlantis'))
  195.   (dest #AtlantisHome)
  196.   (newname "Atlantis")
  197.   (infos)
  198. )
  199.  
  200. ;
  201. ; Kopiera catalogs
  202. ;
  203. (complete 20)
  204. (if (> #Langs 0)
  205.   (
  206.     (makedir (tackon #AtlantisHome "Catalogs"))
  207.     (if (in #Langs 0)
  208.       (copyfiles
  209.         (prompt "")
  210.         (help "")
  211.         (source "Catalogs/svenska")
  212.         (dest (tackon #AtlantisHome "Catalogs/svenska"))
  213.         (all)
  214.       )
  215.     )
  216.   )
  217. )
  218.  
  219. ;
  220. ; Kopiera dokumentationen
  221. ;
  222. (complete 30)
  223. (copyfiles
  224.   (prompt "")
  225.   (help @copyfiles-help)
  226.   (source "Atlantis.guide")
  227.   (dest #DocDir)
  228.   (infos)
  229. )
  230.  
  231. ;
  232. ; Kopiera 'Docs'
  233. ;
  234. (complete 40)
  235. (copyfiles
  236.   (prompt "")
  237.   (help @copyfiles-help)
  238.   (source 'Docs')
  239.   (dest (tackon #AtlantisHome "Docs"))
  240.   (all)
  241.   (infos)
  242. )
  243.  
  244. ;
  245. ; Kopiera 'Examples'
  246. ;
  247. (complete 50)
  248. (copyfiles
  249.   (prompt "")
  250.   (help @copyfiles-help)
  251.   (source 'Examples')
  252.   (dest (tackon #AtlantisHome "Examples"))
  253.   (all)
  254.   (infos)
  255. )
  256.  
  257. ;
  258. ; Kopiera 'Graphics'
  259. ;
  260. (complete 60)
  261. (copyfiles
  262.   (prompt "")
  263.   (help @copyfiles-help)
  264.   (source 'Graphics')
  265.   (dest (tackon #AtlantisHome "Graphics"))
  266.   (all)
  267.   (infos)
  268. )
  269.  
  270. ;
  271. ; Kopiera 'Rexx'
  272. ;
  273. (complete 70)
  274. (copyfiles
  275.   (prompt "")
  276.   (help @copyfiles-help)
  277.   (source 'Rexx')
  278.   (dest (tackon #AtlantisHome "Rexx"))
  279.   (all)
  280.   (infos)
  281. )
  282.  
  283. ;
  284. ; Lägg in Icon.mcc
  285. ;
  286. (complete 80)
  287. (copylib
  288.   (prompt #MCCInstallStr)
  289.   (help #MCCInstallHelp @copylib-help)
  290.   (confirm)
  291.   (source "MUI/Icon.mcc")
  292.   (dest "Libs:MUI")
  293. )
  294.  
  295. ;
  296. ; Lägg in assign i s:user-startup
  297. ;
  298. (complete 90)
  299. (set #ModifyStartupHelp (#ModifyStartupHelp #AtlantisHome))
  300. (startup "Atlantis"
  301.   (prompt #ModifyStartupStr)
  302.   (help #ModifyStartupHelp @startup-help)
  303.   (command "Assign Atlantis: " #AtlantisHome)
  304. )
  305.  
  306. (makeassign 'Atlantis' #AtlantisHome)
  307.  
  308. (complete 100)
  309.  
  310.  
  311.  
  312.